home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)TB / (A)TBX.ADF / ClockDJv5.04 / rexx / PointDelete.rexx < prev    next >
OS/2 REXX Batch file  |  1992-03-18  |  709b  |  32 lines
  1. /* Multiple file delete */
  2. options results
  3. address clockdj
  4. setcedhide ""
  5. setcedshow ""
  6. setceddir "VD0:"
  7. setcedfile ""
  8. setcedtitle "Select files to delete"
  9. cedextendedrequester
  10. files = result;if files = "" then exit
  11. win = "con:s*/0/50/640/350//cd/02\r\c"
  12. if ~open('console',win) then exit
  13. call writech 'console',files
  14. POPREQUESTER  'Do you really want to delete these?'
  15. if result = no then exit
  16. address command
  17. if index(files,'0a'x) = 0 then do
  18.     "runwsh >nil: delete >nil:" '"'files'"'
  19.     exit
  20.     end
  21.  
  22. pos1 = 1
  23. do forever
  24.   pos2 = index(files,'0a'x,pos1+1)
  25.   if pos2 = 0 then do
  26.     say 'All done.';exit
  27.     end
  28.     else nop
  29.   "runwsh >nil: delete >nil:" '"'substr(files,pos1,(pos2-pos1))'"'
  30.   pos1 = pos2+1
  31.   end
  32.